10 REM COPYRIGHT 1988 COMPUTE PUBLICATIONS, INC. - ALL RIGHTS RESERVED
15 POKE 53280,15:POKE 53281,12:POKE 646,1
20 PRINT"[147]   COPYRIGHT 1988 COMPUTE! PUB., INC."
30 PRINTTAB(11)"ALL RIGHTS RESERVED":FORI=1TO1500:NEXT
40 FORI=1TO96:READA:X=X+A:NEXT:IFX<>787236THENPRINT"DATA STATEMENT ERROR":STOP
50 RESTORE:PRINT"[147]":PRINTTAB(8)"PRESS AND HOLD SPACE BAR"
60 PRINT:PRINTTAB(9)"TO OPEN MUSICAL ZIPPER"
70 PRINT:PRINT:PRINTTAB(7)"HOLD U TO HEAR UPPER VOICE
80 [153]:[153][163]7)"HOLD L TO HEAR LOWER VOICE
90 POKE650,128:REM REPEAT ALL KEYS. NECESSARY WHEN U AND L ARE HELD DOWN.
100 F=.9
110 V=54272:V1=54273:V2=54279:V3=54280:K=256
120 FORT=VTOV+23:POKET,0:NEXT
130 POKEV+24,15
140 POKEV+5,9:POKEV+6,16:POKEV+12,9:POKEV+13,16
150 POKEV+3,8:POKEV+10,8
160 FORQ=1TO48:READM,N:M=M*F:N=N/F
170 IFA$="L"THENM=0:REM CANCELS UPPER VOICE
180 IFA$="U"THENN=0:REM CANCELS LOWER VOICE
190 POKEV1,INT(M/K):POKEV,M-INT(M/K)*K
200 POKEV3,INT(N/K):POKEV2,N-INT(N/K)*K
210 POKEV+4,65:GOSUB270:POKEV+4,64
220 POKEV+11,65:GOSUB280:POKEV+11,64
230 GETA$:IFA$=""THEN260
240 IFA$=" "THENF=F*1.05:REM SPACE BAR INCREASES RELATIVE PITCH FACTOR
250 IFF>4THENF=4:PRINT:PRINT"      MUSICAL ZIPPER IS WIDE OPEN![145][145]"
260 NEXT:RESTORE:GOTO160
270 FORT=1TO50:NEXT:RETURN
280 FORT=1TO35:NEXT:RETURN
290 DATA6430,9634,7217,8583,8101,8101,9634,6430,8583,6430,8583,4817,10814,6430
300 DATA9634,6430,9634,8101,12860,6430,12139,8101,12860,9634,9634,8583,8101
310 DATA8101,6430,8583,7217,7217,8101,7217,8583,5407,9634,7217,10814,7217,9634
320 DATA8583,8583,7217,8201,8583,7217,10814,8101,9634,6430,8583,6069,8101,6430
330 DATA6430,7217,6430,4817,4817,6069,6430,7217,6430,8583,8101,8101,6430,7217
340 DATA8101,8101,9634,6430,8583,7217,8101,8101,8583,9634,8101,8583,8583,8583
350 DATA7217,10814,9634,9634,8583,9634,8101,12860,6430,12139,6430,12860,6430